home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
tk.src
< prev
next >
Wrap
Text File
|
1990-10-18
|
238b
|
14 lines
%%HP: T(3)A(D)F(.);
@ by Larry Morton.
@ used by FRAD2.
\<< DUP 1
IF ==
THEN DROP 'D1' STO* 0
ELSE DEPTH ROLLD 2 DUPN
IF ==
THEN 'B1' STO* DROP DEPTH ROLL 2 -
ELSE 'D1' STO* DEPTH ROLL 1 -
END
END
\>>